function [n2,ValueJournal,ValueJournal2]=getJournal(VecValue,n2,VecJournal)

ValueJournal='';
TestTemp=0;
TestTemp2=0;
TestTemp3=0;
ValueTemp=size(VecValue,1)-6;
ValueTemp2=ValueTemp-1;
ValueTemp3=size(VecJournal,1);
ValueJournal2=-1;
while n2<=ValueTemp&&TestTemp==0
    VecValueTemp3=VecValue(n2:n2+6,1);
    if strcmp(char(VecValueTemp3'),'<Title>')==1
        n4=n2+7;
        TestTemp=1;
        while n2<=ValueTemp2&&TestTemp2==0
            VecValueTemp4=VecValue(n2:n2+7,1);
            if strcmp(char(VecValueTemp4'),'</Title>')==1
                n5=n2-1;
                TestTemp2=1;
                VecValueTemp5=VecValue(n4:n5,1)';
                ValueJournal=char(VecValueTemp5);
                n3=1;
                while n3<=ValueTemp3&&TestTemp3==0
                    for n1=1:2
                        if strcmp(ValueJournal,VecJournal{n3,n1})==1
                            ValueJournal2=n3;
                            TestTemp3=1;
                        end
                    end
                    n3=n3+1;
                end
            end
            n2=n2+1;
        end
    end
    n2=n2+1;
end
                 
                                